#Include 'Protheus.ch'

User Function ArrPrint()

	Local aList := {}
	
	Eval(&("{||Alert('oi')}"))
	
	aAdd(aList,'ABC')
	aAdd(aList,'ABC')
	aAdd(aList,'ABC')
	aAdd(aList,'ABC')
	
	aAdd(aList,{'DEF','DEF','DEF','DEF'})
	
	aAdd(aList,{{'GHI','GHI','GHI'},{'GHI','GHI','GHI'},{'GHI','GHI','GHI'}})
		
	ListArr(aList)

Return


Static Function ListArr(aList)

	Local	nX	:=	0

	For nX := 1 To Len(aList)
	
		If Valtype(aList[nX]) = 'A'
	
			ListArr(aList[nX])
		
		Else
		
			ConOut(aList[nX])
		
		End If
	
	Next nX
	
Return
